Создает упрощенную информацию о типе, которую может использовать реализация IDispatch.

HRESULT CreateDispTypeInfo
(
INTERFACEDATA  pidata,
LCID kid,
ITypelnfo FAR* FAR*pptinfo
);

Параметры
pidata
Описание интерфейса, для которого создается информация о типе.
lcid
Идентификатор местности для имен, используемых в информации о типе.
pptinfo
После возврата содержит указатель на реализацию информации о типе, которую можно использовать с DispGetlDsOfNames и Displnvoke.

Коды возврата
Из возвращенного HRESULT получают один из следующих кодов возврата:

Код возврата	Значение
S_OK	Интерфейс поддерживается.
E_INVALIDARG	Либо описание интерфейса, либо LCID неверны.
E_OUTOFMEMORY	He хватает памяти для выполнения операции.

Комментарии
Вы можете создать информацию о типе во время исполнения, используя CreateDispTypelnfo и структуру INTERFACEDATA, которая описывает предоставляемый объект.
Информация о типе, возвращаемая данной функцией, предназначена главным образом для того, чтобы автоматизировать реализацию IDispatch. CreateDispTypelnfo возвращает не всю информацию о типе. Аргумент pidata — это не полное описание интерфейса. Он не содержит информации для справочной системы, комментариев, необязательных параметров и другой информации о типе, полезной в иных контекстах.
В связи с этим рекомендуется использовать другой способ предоставления информации о типе для объекта, а именно описание объекта на языке ODL и компиляцию этого описания в библиотеку типа с помощью компилятора MIDL или утилиты MkTypLib.
Вы можете воспользоваться информацией из библиотеки типа с помощью функций LoadTypeLib и GetTypelnfoOfGuid вместо CreateDispTypelnfo.

Пример
Приведенный ниже код создает информацию о типе из INTERFACEDATA для предоставления объекта CCalc.

static METHODDATA NEARDATA rgmdataCCalc [] =
{
PROPERTY(VALUE,	IMETH_ACCUM,		IDMEMBER.ACCUM,	VT_I4)
PROPERTY(ACCUM,	IMETH_ACCUM,		IDMEMBER_ACCUM,	VT_I4)
PROPERTY(OPND,	IMETH_OPERAND,	IDMEMBER_OPERAND,	VT_I4)
PROPERTY(OP,		IMETH_OPERATOR,	IDMEMBER_OPERATOR,	VT_I2)
METHODO(EVAL,		IMETH_EVAL,		IDMEMBER_EVAL,	VT_BOOL)
METHODO(CLEAR,	IMETH_CLEAR,		IDMEMBER_CLEAR,	VT_EMPTY)
METHODO(DISPLAY,	IMETH_DISPLAY,		IDMEMBER_DISPLAY,	VT_EMPTY)
METHODO(QUIT,		IMETH_QUIT,		IDMEMBER_QUIT,		VT_EMPTY)
METHOD1(BUTTON,	IMETH_BUTTON,		IDMEMBER_BUTTON,	VT_BOOL)
}

INTERFACEDATA NEARDATA g_idataCCalc = 
{
rgmdataCCalc, DIM(rgmdataCCalc)
}

// Реализация IDispatch с помощью диспетчерских функций API.
CCalc FAR*	
CCalc: :Create() 
{
HRESULT hresult;
CCalc FAR* pcalc;
CArith FAR* parith;
ITypelnfo FAR* ptinfo;
IUnknown FAR* punkStdDisp; 

extern INTERFACEDATA NEARDATA g_idataCCalc;

if ((pcalc = new FAR CCalc()) == NULL)
	return NULL; 

pcalc->AddRef();
parith = &(pcalc->m_arith);

// Построить информацию о типе для функциональности данного объекта, 
// которая предоставляется для программного доступа извне.

hresult = CreateDispTypeInfo(
&g_idataCCalc, LOCALE_SYSTEM_DEFAULT, &ptinfo); 
if (hresult != NOERROR)
goto LErrorO;

// Создать агрегат с экземпляром стандартной реализации IDispatch, 
// инициализированной с помощью информации о типе.

hresult = CreateStdDispatch(
pcalc,     // Управляющий IUnknown.
parith,    // Экземпляр для распределения вызовов.
ptinfo,    // Информация о типе, описывающая экземпляр.
&punkStdDisp);

ptinfo->Release();
if (hresult != NOERROR) goto LErrorO;
pcalc->m_punkStdDisp = punkStdDisp; 
return pcalc;

LErrorO: ;
pcalc->Release(); 
return NULL;
}